package My_String is

   subtype Taille_String is Integer Range 1..20;
   Type Type_String is Record
      Taille : Taille_String;
      Texte : String(Taille_String);
   end record;

   function toString(S : Type_String) return String;

   function toUpper(S : Type_String) return Type_String;
   function toUpper(S : String) return String;

   function equals(S1,S2 : Type_String) return Boolean;

end My_String;